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Japanese Patent Office (RO/JP) 
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io. -r^^attbTRwr*. mm sum §i*fzckojt^$nfcia^jo 

V-7^D^7AMSn5t, 3>/W7l0lt fOV-77 i P^7 
15 ViTtt, IB^CSUM te, 4fT§© TSUM(A)J *$J;^5ffB<7> TSUM(N(51 : 100)) J 

^cwttu^rr camera*, i^fc^^n^M^ 

TSUM(A)J ii^D ^ A SAMPLE <&4 I T«fcWK:£«Lfc&ffcM&&©T, frfc 
^£fi=StLT rsUM_SAMPLE_lj #$1 9 US T 6 *1 5 . &*3, 3>;W7l0iJ« 



1 4 

-*?<D&m*UW?z>-%m j P. r#j r$j &£<a:i— ifatjs^icteJBLfc 

5 3>/K7lOtt, V— ^7 p n^7A©4fTBS^T©«t'5^fil 

uOtf, rsUM_SAMPLE_lJ ©Slgcte, TSUM(A)j ©5lft£-E-(&i;f;fll 

B=SUM(A) — B=SUM_SAMPLE_1 (A) 

JfcVvc, n>/H7lOH 3l&A£##ri-<2>c:£t::J;£K TSUM(A)j ©4# 
10. M^affiT-So itllCiD. WTWM^fbtll). 

arg-type = REAL 

m= 3 

1 b CD = 1 

ub(l) = 1 0 
15 lb (2) =1 

ub(2) =20 

lb (3) = 1 

ub (3) = 3 0 

CCT, Targ-typej te§lf£©M> r m j te§l£fctf)#7cifr, HbO) J *3«fctf 
20 r U b (i) j tt^n^n?l»©^i^7C©TISffi*3«k^±ISffiT»^. 

:>/W7l0lt rsuM_SAMPLE_u ©tiffin — h* &£j5fcT5KR, t>-?V 

fc«>©t>fc7rc»9, f-^^-^fi:fttt$nxi^, w& sum- -sswrr* 




1 5 

<mm \z m t; t * <o > y v - v & % x ? -r x -r z> z. t \z £ d *ns-r -5 n 
^<D\^tti(D^mizjt^x^n^m^(D^>^u-h<D^<bmmu i -^shr 

10 0 8^t^>:/l/-h£*iJfflU ZmA&BtifT&Z. 

HZ^VrnznT^Zmmzfit-DT rsUM_SAMPLE_l(A) J \Z~D\^T<D^Wt^l — 

AO T^j # TREALJ El 8 XZ^Tfy-fV— b-\Z& ^X, Targ- 

15 typej £. LT TREALj a*#£&£n*. §l&©#&7G<BTIfite*5J:tf± 

PIffiibT r i j r i o j r i j r2 0j rij r3 o j ###&sn<5. * 

5>H, d <£>=!— K** rsUM_SAMPLE_l (A) J KJ; 9 BWffl£n££ 5 fcT^/rtf) 
\Z. ^m&£VX rsUM_SAMPLE_lj a**#&£n5. 

rsUM(N(51:100))j KO^Ttf>#l3te, S^WK* TSUM(A)J £^V>T<E>81 
20 mtmUX&Z. -ffct)-*,* 3>/H7l0lt ST rsUM(N(51 :100)>J Si 

rsUM(N(51:100))j tt^ □ ^7 A SAMPLE O^T 2 #i lcS« LfcHlgc SUM 
OT\ j&r&fc#i8i!££l/T TSUM_SAMPLE_2j ^'10iT5n5. COE u > 




1 6 

WRITEC*,*) SUM(N(51:100)) -»• WRITE (*, *) SUM_SAMPLE_2 (N(51 : 100)) 
m^X, ny/U^l Ott, §I£c*#*tLT rsUM(N(51:100))j co^^tt 

5 arg-type = INTEGER 
m= 1 ■ 
lb(l) =51 
ub(l) =10 0 

Z\<D'&, 3 >A°-f ^ 1 0 te, E18 ^L/c^>yi/- hSrfUffiLT TSUM_SA 
10 MPLE_2(N(51:100)) J tl^^T^^in- F &£.tf£t 3„ ^J&^tlfc^cn- 

i7Bll 1 0 £ffll^TU7 AfC^bfcV— 7yD^7^^3> 

/WUb/t^M^-f BITS 12 6 tc^Ufc^n-?^— Mc&tt£-7°n;7* 

15 }c^^^-r^#*f^ (m^csum &v&&m-tft.tz><DV¥-m 



• «• # • . • •• « • i 

••••••• • • 

• • ••••••» 

• • • • • • • • « 



1 7 

B7BlliWyx^hn-F, *3«£tfEI 9 A&cfctfH 9 B iZmT^ 
Lfc*«oT, n>/W7 1 0©t^x^ hWlg^^3-F^fa 

FORTRAN ^Cfffiiteiim ^D^ACDMfiBfc^T 

<D «k -5 & fi £ i; & H o 




1 8 

S^a-yhSgt. Tfctt* 3>/H7 3 0 IZ&^T. ^ffigBl 1, ^ 
W13(1 S*^JtcEI5H^bfcn>A 0 -r^ 1 0<D%<DtmC 

1 2*«fc^jgMgui 3ic5ifcrrs. m^zmc^-r^nm^&vmfn 
io «, ^n££^n^isv^~i^Dii#mK^&u junibisi 3 te-en scutate 

15 ^f'^Slim IlMSlMTS^t'JiltR («31 

<h|WI^{C, yo^^APP^T^-r^^^Cl Cn s&ta-rs. 

20 Xfy^S 1 3~S 1 9£>#l3Ite, T^yT'S 1 2 K;felr>Ttfcaj$ftfc#& 
tftf^tr^jfeCl ,Cn iZ-O^TMftZnZo ^f7^S13TH H6 

1 4T'(1 4#$fcAi mzX^y-fS 14-S1 9©WH7UT^ 




1 9 

z&wr^&tttiLCi ci-i 0&m.<D*<D^-?tifrtmc-z:&z>fr : gfr 

zm^z, msLAi vtvmw&tetsnr^&T^ttmci ci-i 

x:/n^APft-en--^&#^£ f i ^^-r^o Xr7ys i 6 -era;, 

10 X^-y-fS 1 8(C^3ViT, £8IT^#*|-*fcC i ©#£§fcAi 

ilBT.-r-yys 1 3~S 1 9 ©^3£:£:T©^&T^it*fiiC 1 Cn 

tC-PViTl^ff-rst, y'u^f^APlZ^X^^-r^MMCl Cn 

##18 fl , fm (m^n) ©n^ffiKBIfcSn, *#ffc f 1 

20 f BOP?tii^n^n^UT^3-KSl , Sm d^StlS. ^E-L/ 



2 0 

zw&oiz, nyn^=? 3 0 \z£ti& foZV-x^ntf^APUzfiFZETZ 

2 AfC^-rv-^^0^7A**A^Snfc«-&*ffi^U, 89% SUM 0O¥ffi££ 

fcfcHTfct, P3&SUM te, 4tT@(D TSUM(A)J TSUM(A2) j , 5frS© 

rsUM(N(51:100))j , :fe<fctf6frB© rsUM (M (5 1 : 200) ) J K:«fc DDf W!ftTtr>2> 

3>/H73 0lt tf, TSUM(A)J f~OV>T^<D#lfc£}&ffiU 

iz&<oT*>7'(>mm&&f?rz>. z\m>^^ >mm<Dmmt. ±mvrc 

TSUM(A)J j&* TSUM_SAMPLE_1 (A) J KlB^I&JLSnSKfEfci 



• ••• •• •• •• •••• •• 

« • • • • • •••• • • • • • • • 

• • • • • •••• • • * • * • • 

mm I • •••• • •• • •• • 

• • • • ••• • • •••••••• 

I . I •••••• •• •• •• 

2 1 

tsum(a)j \z-d^t*>7^ ymmtfnnznzt. mi 3 aiztk-t^oiz, 
tsum(a) j i/3- i^s&sns. 

m^X, 3WH73 0tt, TSUM(A2) J (DftWL&t&liil,. H13B{C^-T 

5 £Jfc*Srr£-. uCtH rsUM_SAMPLE_l (A) J *5 «ktf TSUM(A2) J 0Ef«j&*S 
WC^H-ltbT^SOt, TSUM(A2) J \ZttlsTit%ijt\Z¥1fcn—\z&£. 
J53c-T3i:£&<» TSUM(A)J II^tTM$n^^3-K^ TSUM(A2) J >&> 
6P?^ai-r«fc'5^T«fc8S)^, TSUM(A2) J £ TSUM_SAMPLE_1 (A2)J Kgjftf 
5. z\(Dm^ V-xyo^^A(754tTg«, J^Tlc.kSKi&lfeStiSJifcK: 

10 

B=SUM(A)+SUM(A2) — B=SUM_SAMPLE_1 (A) +SUM_SAMPLE_1 (A2) 
Ifc^'oT, Cl©ff*^ff$n5t, rsUM_SAMPLE_l(A) J tC=t DH9 A(C^ 
Lfc^H— H^Wm^n> rsUM_SAMPLE_l (A2) J KcfcoTfc^CD . 

15 rsUM_SAMPLE_l (A) J 43<£0? TSUM(A2) J JC^^fc— gfc 

(ill 3Ai:st^l^§jtt^. 

flfcViT, rsUM(N(51:100))j <D#$[£fSttJU I13C 

ic^Tcfc e> (3, fir- y;ptwi!Etcae$ nr irs s m©#a t-^ottm l 

20 #M£:£J£it5iT3o TSUM_SAMPLE_1 (A) J Rtf TSUM(N(51 : 100)) J 

&LTlr>fcV>(0T, rsUM(N(51:100))j 
h*£frJtlc£/&T3. CKB^Mfcn-R*, 0 "9 B \Z^VTz.^m^- F 



• • • • 



2 2 

V^fti (I^tll rsUM_SAMPLE_2j ) SftSl, -tn£ rsUM (N (5 1 : 100)) J 

5 WRITE (*,*) SUM (N(51 : 100)) — WRITE (*, *) SUM_SAMPLE_2 (N(51 : 100)) 

3>/H7 3 0ll rsUM(M(51:200))j tcMbT^OfflaSrUff 
• T£ = HI 3Dt^-T«t , 5f^ rsUM(.M(51:200))j <D^m«, 

10 S»$nTV>5 TSUM_SAMPLE_2j <Z><RMSfc£«<HbTt^£j&*, 

HfcVX&T, rsUM 01(51:200)) J tC^JESTS^lKn— F**ffc»C^-r*- £ 

l*l-D<D&m ( rsUM_SAMPLE_3j ) £#WtU ^tV& rsUM (M (51 : 200) ) J \ZM 
15 bT*dO"^T*. Z\<Di&, y-Xy°n^^AcD6fTa^TIB©ci;-5fC##^A 

WRITE (*,*) SUM (M (5 1:200)) — WRITEC*, *) SUM_SAMPLE_3 (M(51 : 200)) 

Hi 2 BC^T^^x^ hn— 43<fctfH9A, 19B, 
20 HI 4K^f^J!*n— KSaj^TS. .££T, 12 9 Atc^-f^n- KWu 2 




2 3 

015(1 0 8»C^Lfc7 i >^ , U— htJt«bT***S<Z)S5^|g-C^L/ 

Jg&rr*?*— hTS^fc^, Ell 5(d^:T^>yi/-h«> 3lgc©M& 

»0^7C*d*5^»cFIi;T*n«, §ISS[©^7cOTISffi*«fc^±l5flfi©^— 

15 ('it^^tl^A 0 ^^ — il2AI3LfcV-^ 
y □ ^ 5 A ^ S ^{±i $ tlfc 4 O (D^^T ^ #2* ^ O \, L T tr . 
Ell 5 (C^T-x>yi/- h£/B^3i§£\ JtUET^A^^-^tt, ±tf!L 

oT, TSUM(A)J TSUM(A2) J IC** bTSHCIWI D3^n- 

20 n^>^<t(C7^0> WM\Z. rsUM(N(51:100))j £>&X$ rsUM (M (51 : 200) ) J \Ztt 

OH TSUM(A)J *5«ktf TSUM(A2) J {ZttLT 1 K££)5£U |W] 

Sll^ fSUM (N(51 : 100)) J *3«fct* rsUM (M (5 1 : 200) ) J Utfe 1 



2 4 

-F£3E/&T£ 0 Z\(D£g. TSUM(A)J ;fe«fctf TSUM(A2) J te, S^fClS]^ 
ffl&m (liTfl rsUM_SAMPLE_lJ £T<5o ) K^ftSft*. TSU 
M(N(51:100))J ^3cfct>' rsUM(M (51 : 200) ) J fc2W;:EI E3M»fcH (ddTfi, 
rsUM_SAMPLE_2j tn, ) K£$fe$ft5. 
5 El 1 7 tt, 0 1 5 C*tf>^U- hSffl^t#^©3 7 3 0 ©tH* 
£^TEIT&£>o n>/H73 0H El 1 2 Afc^Lfcy— X^utf^AWX 
d ASnSt, Ell 5(3^b/!:^>yi/-h^ffl^7t*^r, 13 1 7 fc^-T^S? 

£T\ ^iffiin— KA«, rsUM_SAMPLE_U Kck 0O¥tf fcUSn, 
10 FBte, TSUM_SAMPLE_2J fc£ V BftfttiStl*. 

09*.fcf» Fortran90 7 P D^7AiLT^yx^ h3-KMt5i^l 
20 © V-7 A $t^7 7 -f il/^-i UT3 >/H □ >/H 7 ll^> 




2 5 

3>/H74 0tt, akfcWKH EI 1 0 (C^bfe3>/H 73 0 <hlH 

Bll 911 -Si 8 l:Sbfc3>/H7CS(i^&KWt5fcft07n-ft- 

io h^fts. ccth a>A°-r ^4 o fdATj^n^ M7 7^jp 

F, Ol:,kt)3>/H^Sn^7*5?i^ h77-fi^77^^ 

^7APi , Pt -^tpfeoi-rs. iocy-77 

15 ^f77°S2 1~S3 0©M1H EI11 \Z^tiX7-yy°S 

1 1 ~S 2 0 t^tL^nmW&Zo 7c/cU Xfy^S21-S307?H 

i:^*nt^5 1 K±oy-x7 , D^7A^&^t^t»*^aisn5. 

7f77°S2 5TH ^-r^#*f^{C^bT^T-f;UF^lTJ.--^ 
20 fc£ffi££firr5. 

3>/K74 0ll V-77 , D^7API ...... Pt S^tr7 7"TJUF^A 

7J$n<5<h, ±fBX-T-^ys 2 1~S 3 0(DMm^mrT^Zt\Z^D, 



2 6 

P'l P'tfc^U tttitOWmiztt^trnfelsT^tftx-}* 

SI Si^4^t^. fit, ^tl50*^x^ h^n^A&cktf 

3>/H74 0i:«kn«, «»©V— ^o^A^t^r 

0l:Sty-X7 7-f;V (tiny, f) j&t^7j£n&«'&£Sj£U PtfcSUM G>P? 
15 m*^tft^tLTiK^-r*. 3>/H74 0tt, 0 8{3^bfc^>y 

20 te, B€$CSUM tt, ^-f>7'D^7A© TSUM(A)j rsifM (N (5 1 : 1 00) ) J , & 

&W77n!/7&<D tsum(q)j izx.vmxtiT^zz.ttfikih'znzo 




2 7 

^S^SW**. TSUM(A)J *3j;tf rsUM (Q) J ©#8to«2V> 

Hot, tsum(a)j *5«fctf tsum(q)j ic^LTte, z\n*>\z£ 

1^0?i3-H^J5jtSn5. &43, rsUMCN (51 : 100)) J \Ztt 

©£tJ^T$.^>o ::tft o?tti©€Mtt, ^(D^mii, 

Xs TSUM(A)J i5«fctf rsUM(Q)j H rsUM_TINY_U SnTV><5. £ 

7c, rsUM(N(5l:l00))j \t TSUM_TINY_2j Cff M^nx^-So f bT, # 
10 afcD— F Afttf 3^8:3— KB ^-n^tl rsUM_TINY_lj rsUM_TINY_2j 

«fc d # bj $ c: t k § o 

^cD=t-5(c> 3>;W74 0l:J:nft SUfc^C^tftf ^*fi^|W]— 7 

M7 7-f^^ Ttiny. fj tti^^T-T^cD^T-r;!/^^ r t i 

ny.oj ^LT, f©7 h7°D^7A^it;fIn 

20 n>/H7 5o(t a»©7 7'f;w-istTA*$n5^t*#s:i/, atj 
£ nfc«#© ^ T < )v \zi?&-r % \z m iwj— (D^mmta 
\z^mtz>hmz. ^(D^mwttiizttLx i~D<Dmmzi-\!%:fkf&-fz> 0 z.<d 




2 8 

«fctfJg|»aJl 3Kji$3rr*. COM^SitM^l 2 43cfc^MW^l 3© 

02 3(1 0 2 2tSlit3>/H7©ftffSSi?lt5fcft©7a-ft- 
hT&^o dUTWU ZI>AW^ 5 0 £A7J$ft*&#<BV— *7T-r;i'£:7 

15 7"f;PFl , Fs , 3 >/H 7 5 0 l: J: 0 n WW^Stlfc* 7*^i h 

77<M77'fM , l , F'S tPf^^tttS. S7C> §7-77 7^ 

7f77°S3 l~S4 0O#II(l aill:SUfe^f^7 , S 
20 1 l-S2 0tfn^nRra-5. fctffU Xf77 p S3 1-S4 0T11 

-ioM©7 7^;^*fititwtf^n^. 7t«;7's 3 

2TH 77-f^Fl Fs (:^^ntl^1l|[OV-^7 t n^7A*5 



2 9 

5 s 3 1 ~ s 4 o ©i&ss^fT-fcs ci <t tc-«k o , #&&r^£*«fca*-?-n-£n^ 

hyn^^A^tr^T-r^F' 1 F's ZttitlTZo £7c>" n>/W 

75 0H #^cou#ttj{c^n^n^-r§^=i-H^^b, c:ne>©^ 

KltfJ#bT'fe«fcV>. ¥^31-h-tt, t^>*x^h7 7^Mt07 7^ 

15 ^J^MlTfoJ;^. 

20 ^frW^HJS^ISiJil^-r*. ETFTtt, D>/H7 5 <HC*fbTI2l2 

4[:^-T2 0®y-X7 7<^ (tinyl. f *3«fctf tiny2. f ) )^X*Snfci^ 




3 0 

y— xy^^x^snst, 3>/W7 5oit 77^^ tinyi. f 

tnt^yo^7A (M>yo^7A) > H^ZSyy^Jl tiny2. f K^i; 
tlt^§yo^ 7 A (It^VD^^A) ^X^^>-r^>ditCcfc OMASUM © 

p^ati^^tts-r-So m2 4\z7*-Tm\z&^Ttz. m&sm yWjuinyi.f 

5 © TSUM(A)J fttf rsUM(N(51:100))j ,, &£tfy T-i )V tiny2. f TSUM(Q)j 

{ z £ d pg^ vz ti t ^ ci t tfifc m £ n s . 

«ET5j&>S^£W*5. TSUM(A)J *3«fctf TSUM(Q)J 0«Rr«^5Vi 

10 tot, tsum(a)j &&zf tsum(q)j tMbta, z\ti^iz^ 

D#W£ft3 1O<0#lft:3— K**£j£$n*. rsUM(N(51:100))j 

ot, tsum(a)j rsuM(Q)j it tsum_i j i:ifM^titi^. 

rsUM(N(51:100))j « TSUM_2 J tCS^&X £nxv>£. fbT, F 
AfeJ;££#^3-FBte, -en-^n TSUMJ J Rtf TSUM_2 J iliOM^ 

-r;i/{343^T#M=i- Kd^jw^nxvisy T-r;^tt3t$n5. £©u >y 
mm\z* n>/vr ^ 5 o (Ccto^T^nxfeck^b, aswa, i2 2i;sb 



3 1 

MWL^y)v-^>uax&^T^mmz®misrLZ>o eisk^u 

l o leu 2 6 AK;^TV-x:/n^A^A#£nfc^£^ 
U TA**NJ TA**NJ 14, TAON^J £ 

^-To ci-t, taj m&m. rn.mm.rn. t^iii:i©x*7i:$o, 
n >/\°-r ^ i o v—7,7°ntf7&frib ta**nj &&aj-r*£. -en 

* rpow (A, N) J ^^-r^dt^efco^-^vx^ h:7°n^A££/& 

-rst^tc rpow (a, n) j (ciD^m^n^^^^n— h c*-> 

15 K8K*Jf£^frU Nd«3 «fc 0 fe^cfr^t^^ttmfHaSff^ff-r*. J 

3>/H7iOU. rpow (A, N) j KatiEf K*£/£f * 

HISl : A COM 

20 #1*2 : N©tea*fce>nsj&>5j&> 

3>/\°-r^io«. rpow (a, n) j t^js-rs^n— k*^j*t* 
mzmm-Tz-y-y-jjiT-? £Lxm2 7A~H2 7d. *5«fctfEi-2 8 A&ct 




3 2 

02 7A(I^tf>^l/-h(l TNj r 0 J (D^^J^LTlB^^n 
Xl/>£. -ftztt. TN=Oj <Dm&\Z* TA(DOmj f 1 ] t£<DT\ 

5 ^>^l/- TR= l j ^IBMi^nT^^o 

0 2 7 B-EI2 7Dl:^t#r>7 P l/-Kt ^tl-^n TNj fl« r l j fri? 

■5, #f>^i/-M:it -^n^ngBt^5£ ( fr = aj tr=a*aj 

10 TR = a*A*Aj )^^#>fSai£tlX^So 

jesnx'^s. ip-fe. ■7">7V- h\ziz. rpmm.w^ ( tr=a**aj > a* 
^fesaai^nxvis.- 

15 TNJ ©ffi*^WX»S«'&tCMJESbxa5i£$nxViS. C 5 s - > :7V 

-m~«, tnj ©ffid«ft*ofc^x-eoffltc*f^"rs?RiF^d«a^$ns 

«k-5&82a$£fcoX^S. 

3>/K7iOfi, y— ^ya^7A*^A^$n*t, #ff&li— ^-rsn 
<hfc«kO ta**Nj <h^"5^3i£tfctfcrr£. 112 6 A\z^rT"fu if ^ Affix 
20 #£n£:^§-£\ 4ff BO T2 * *LEN J ^30:^5ff SO) r (R * 2) **2j 

£t\ t2**lenj i)^>7< >mmznz>o F2**LENj «, 

SUBROUTINE ©4 , X#&JK:S*8 Lfc&tfcf ^t^OT, Fp0W_SUBP_ 



* • • • * 

« • • • 

• • • • I 

• • • « • < 



3 3 

REAL::S(2**LEN-1) REAL : : S (P0W_SUBP_1 (2, LEN) -1) 

5 #ltl : ^= INTEGER 

«fi2.:N0fflli#enf 
: fcb 

-ty^^yu— Heists. Ttefc>-£> rNj ■©ffia^shTtr* 

r (r*2) **2j 4 ymmzn&o r <r*2) ** 

2J yo^A SUBROUTINE (D^Tfg 2 SlllSilfcfjftt^t^ 
©T, rpow_SUBP_2j iV^^M^f'JO^T^n, WTo^^^ns. 
15 M=PAI*(R*2)**2 — M=PAI*POW_SUBP_2((R*2),2) 

#1 1 : IS = REAL 

#f 2 : NOfttfl&nfc 

#13 : N=2 

20 3>/W7ioi4, ±iet#e»nfeif$gfc^oTiii2 7 c^-r^>^ix-h 



3 4 

10 itcj; D^$n>5o ^(D-yntf^AZmfiTZU 6 0©yD>y^ 

2 9 tc^-fo 

CPU.6 1 H 06, 01 1, HI 9, S 2 3 07D- 3^ — MCtk 

15 i^a^^yu-hSftjW-TS. — -ft. *^U6 3te, WAfcT^SIMM^U 

-e&o, cpu6i^tMiLTtffl^5. mi 3 AUE\Z^ tc^m 
"r-yilU, Z\(D^^^) 6 3 \zftf&-znz>o 
fEtt$g#: F ^ -f A 6 4 C P U 6 1 (Dfi^\Zfc^ T pJ^fBIt^^ 6 5C 

®« MflfgB 6 6d c p u 6 i (D^mz^-o xm t^mx?-? zm^m-r 




3 5 

(a) n>tf o.-^6 >X h-;i/£*lTii&$tl£o ^(Dmt>, Zfatf 

(b) pJ«tt8H«iaW*:^»iWSnTffittSn«. dtf>«<8r, pJi^'ttfBtg^#:6 

T8BtfcS« 6 2 Ic-T >X 1 — 

(c) «±©U-;^6fi«sn5.. C©*^, n>tfji-^6 
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1 SUBROUTINE SUB(A.N) 

2 INTEGER N 

3 REAL. A(ABS(N)) 

4 WRITEC*,*) A 

5 END SUBROUTINE 
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1 SUBROUTINE SUB(A.N) 

2 INTEGER N 

IF (N.GE.O) THEN 

TMP = N 
ELSE 

TMP = -N 
END IF 

3 REAL A (TMP) 

4 WRITE(*,*) A 

5 • END SUBROUTINE 



1= — K 
l = -K 

|=2-F 

|=z-F 



1 B 



1 char *copy_string(char *s) 

2 { 

3 int i; 

4 char *buffer = (char*)malloc(strlea(s) + 1); 
5 

6 for (i = 0; s [i] != '\0'; ++i) 

7 buffer [i] = s [i] ; 
8 

9 return buffer; 

10 > 
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1 char *copy_atring(char *a) 

2 { 

3 int i; 

char *p; /* KfcW a — K */ 
int tmp ; /* EEJfJ a — K */ 
tmp = 0; /* JRBHa- K */ 

for (p '.=> s; *p != «\0'; ++p) /* Sffa-K */ 
++tmp; /* SB3=»- K */ 

4 char *buffer = (char*) malloc (tmp + 1); 
5 

6 for (i = 0; a [i] != '\0'; ++i) 

7 buffer [i] = a [i] ; 
8 

9 return buffer; 

10 } 
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IF CZ.GT.EPS) THEN 


2 


A^Bl 


3 


ELSE IF(ABSCZ) .LE.EPS) THEN 


4 


A=B2 


5 


ELSE 


6 


A=B3 


7 


END IF 
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1 IF (Z.GT.EPS) THEN 

2 A=B1 
3a ELSE 



IF (Z.GE.O.O) THEN 


! mm*- 


K 


TMP = Z 


! mm^- 


K 


ELSE 


! mm*- 


K 


TMP = -Z 


! mm=- 


K 


END IF 


« mm=- 


K 



3b IF (TMP. LE.EPS) THEN 

4 A=B2 

5 ELSE 

6 A=B3 
3c END IF 

7 END IF 
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4 REAL : 


: S(POW(A, N)) 
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1 PROGRAM SAMPL 

2 INTEGER N(IOO) 

3 REAL A(10,20,30) ,B 

4 B = SUM(A) 

5 WRITE(*,+) SUM (NC5 1:100)) 

6 END 
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1 PROGRAM SAMPL 

2 INTEGER N(100) 

3 REAL A (10, 20,30) ,B 

4 B = SUM_SAMPL_1(A) 

5 WRITEC*,*) SUM_SAMPL_2CN(51:100)) 

6 END 



arg-type FUNCTION' SUM (X) 

arg-type X(Z6(1) , Ibim) : tz6(m)) 

SUM = 0 

DO 999 Im = Z&Cm) , u6(m) 

DO 999 II = 1/6(1) 
SUM = SUM+X(Il,---,Im) 
999 CONTINUE 
RETURN 
END 
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REAL FUNCTION SUM_SAMPL_1(X) 
REAL X(l: 10, 1:20, 1:30) 
SUM_SAMPL_1 = 0 
DO 999 13 = 1, 30 
DO 999 12 = 1, 20 
DO 999 II = 1, 10 
SUM.SAMPL.l = SUM_SAMPL_1+X(I1,I2,I3) 
999 CONTINUE 
RETURN 
END 
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INTEGER FUNCTION SUM_SAMPL_2(X) 
INTEGER X(51:100) 
SUM_SAMPL_2 = 0 
DO 999 II = 51, 100 
SUM_SAMPL_2 = SUM_SAMPL_2+X(I1) 
999 CONTINUE 
RETURN 
END 
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1 


PROGRAM SAMPL 


2 


INTEGER N(IOO) ,M(200) 


3 


REAL A(10, 20, 30) ,A2(10,20,30) ,B 


4 


B = SUM(A)+SUM(A2) 


5 


WRITEC*,*) SUM (N (5 1:100)) 


6 


WRITEC*,*) SUM (M (51: 200)) 


7 


END 
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PROGRAM SAMPL 


2 


INTEGER N(IOO) ,M(200) 


3 


REAL A(10, 20,30), A2(10, 20,30) ,B 



4 B = SUM_SAMPL_l(A)+SUM_SAMPL_i(A2) 

5 WRITEC*,*) SUM_SAMPL_2(N(51:100)) 

6 WRITEC*,*) SUM_SAMPL_3CMC51:200)) 

7 END 
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INTEGER FUNCTION SUM_SAMPL_3 (X) 
INTEGER X (5 1:200) 
SUM_SAMPL_3 = 0 
DO 999 II = 51, 200 
SUM_SAMPL_3 = SUM_SAMPL_3+X(I1) 
999 CONTINUE 
RETURN 
END 
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arg-type FUNCTION SUM(X) 
arg-type X( ) 

SUM = 0 

DO 999 Im = LBOUND(X,m), UBOUND(X,m) 

DO 999 II = LB0UND(X,1) , UB0UND(X,1) 
SUM = SUM+XCI1, • • • ,1m) 
999 CONTINUE 
RETURN 
END 
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arg—type 


m 


SUM(A) 


REAL 


3 


SUM(A2) 


REAL 


3 


SUM(N(51 : 100)) 


INTEGER 


1 


SUM(M(51 :200)) 


INTEGER 


1 
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PROGRAM SAMPL 

INTEGER N(IOO) ,M(200) 

REAL A(10,20,30),A2(10,2O,30),B 

B = SUM_SAMPL_l(A)+SUM_SAMPL_i(A2). 
WRITE(*,*) SUM_SAMPL_2(N(51:100)) 
WRITE ( * , * ) SUM.S AMPL_2 ( M ( 5 1 : 20 0 ) ) 
END 



REAL FUNCTION SUM_SAMPL_1(X) 
REAL X(:, : , :) 
SUM.S AMPL.l = 0 

DO 999 13 = LBOUNDCX.3) ,UB0UND(X,3) 
DO 999 12 = LBOUND(X,2),UBOUND(X,2) 
DO 999 II = LBOUNDCX,l) ,UBOUND(X,l) 
SUM.S AMPL_1 = SUM_SAMPL_1+X(I1,I2,I3) 
999 CONTINUE 
RETURN 
END 



INTEGER FUNCTION SUM_SAMPL_2 (X) 
INTEGER X(:) 
SUM_SAMPL_2 = 0 

DO 999 II a LBOUND(X,l),UBOUND(X,l) 
SUM.SAMPL.2 = SUM_SAMPL_2+X(I1) 
999 CONTINUE 
RETURN 
END 
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C — main program 

PROGRAM SAMFL 
INTEGER N(1Q0) 

REAL A(10,20, 30) ,A2(10, 20,30) ,B 

B = SUM.TINY.KA) 

B = SUM_AND.ADD(A,B) 

WRITEC*,*) SUM_TINY.2(N(51:100)) 

END 

C — subprogram 

REAL FUNCTION SUM.AND.ADD (Q ,S) 
REAL QClO.20,30) ,S 
• SUM. AND .ADD = SUM.TINY.lCQ) +S 
RETURN 
END 

C — end of user programs 

REAL FUNCTION SUM.TINY.l(X) 
REAL X(l: 10, 1:20, 1:30) 
SUM.TINY.l = 0 
DO 999 13 = 1, 30 
DO 999 12 = 1, 20 
DO 999 II = 1, 10 
c SUM.TINY.l = SUM_TINY_1+X(I1,I2,I3) 
999 CONTINUE 
RETURN 
END 



INTEGER FUNCTION SUM_TINY_2(X) 
INTEGER X(51:100) 
SUM.TINY.2 = 0 
DO 999 II -a 51, 100 
SUM.TINY.2 = SUM.TINY.2+XCI1) 
999 CONTINUE 
RETURN 
END 
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7 r <i ^ tinyl.f : 



C — maojo. program 

PROGRAM SAMPL 
INTEGER N(IOO) 

REAL A(10, 20,30) ,A2(10,20, 30) ,B 
B.= SUM (A) 

B = SUM_AND_ADD(A,B) 
WRITE(*,*) SUM(N(51:100)) 
END 

C — end of main program 



7 T s\ -tiny2.f : 



C — subprogram 

REAL FUNCTION SUM_AND_ADD (Q ,S) 
REAL Q (10,20,30) ,S 
SUM_AND_ADD = SUM(Q)+S 
RETURN 
END 

C- — end of subprogram 
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7 T A A* tinyl.o: 



C — main program 

PROGRAM SAMPL 
INTEGER N(IOO) 

REAL A(10,20,30),A2(10,20,30),B 

B = SUM_1(A) 

B = SUM _ AND _ ADD (A ,B) 

WRITE(*,*) SUM_2(N(51:100)) 

END 

C — end of main program 



77^^ tiny2.o: 



C — subprogram 

REAL FUNCTION SUM.AND.ADD (Q ,S) 

REAL QClO^O^O) ,S 

SUM _ AND _ ADD = SUM_1(Q)+S 

RETURN 

END 

C — end of subprogram 

7 7 A A** onlines.o: 



REAL FUNCTION SUM.ICX) 
REAL X(l:10, 1:20, 1:30) 
SUM_1 = 0 
DO 999 13 = 1, 30 
DO 999 12 = 1, 20 
DO 999 II = 1, 10 
SUM.l = SUM.l+XCll,^,^) 
999 CONTINUE 
- RETURN 
END 



INTEGER FUNCTION SUM_2(X) 
INTEGER X(5i:100) 
SUM„2 = 0 

DO 999 II = 51, 100 
SUM_2 - SUM_2+X(I1) 
999 CONTINUE 
RETURN 
END 
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SUBRUUTIJIE 5UBrv>LX»«J 


2 


REAL, PARAMETER :: PAI»3. 14159, R-100.0 


3 


INTEGER LEN.M 


4 


REAL :: S(2**LEN-1) 


5 


M«PAI*CR*2)**2 ■ 


6 


END SUBROUTINE 
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SUBROUTINE SUBP(LEN) 




REAL .PARAMETER :: PAI=3. 14159. R-100.0 




INTEGER LEN ,M 




REAL :: S(P0W_SUBF_lC2,LEN)-l) 


, *7 Vx. -9 






M=PAI*P0W_SUBP_2 C (R*2) , 2D 




• • « 

END SUBROUTINE 





FUNCTION P0W_SUBP_1(A,N) RESULT (R) 




INTEGER A,R 




INTEGER N 




SELECT CASE (N) 




CASE (0) 




R-l 




CASE (1) 




R=A 




CASE- <2) 


' 3 - y a 


R=A*A. 


CASE (3) 




R=A*A*A 




CASE DEFAULT 




R=A**N 




END SELECT 




RETURN 




END FUNCTION 





FUNCTION P0W_SUBP_2CA,N) RESULT (R) 
REAL A,R 
INTEGER N 

R=»A+A 

RETURN 

END FUNCTION 
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FUNCTION rwim«(A,N) RESULT 00 
arg-type A,R 
INTEGER. N 

R»l 

RETURN 

END FUNCTION 



FUNCTION name (A, N) RESULT (R) 
arg-type A,R 
INTEGER N 

R=A 

RETURN 

END FUNCTION 



FUNCTION name (A , N) RESULT (R) 
arg-type A,R 
INTEGER N 

R=A*A 

RETURN 

END FUNCTION 



FUNCTION name (A, N) RESULT CR) 
arg-type A,R 
INTEGER N 

R=A*A*A 

RETURN 

END FUNCTION 




FUNCTION name (A , N) RESULT (R) 
arg-type A,R 
INTEGER N 

R=A**N 
RETURN 
END FUNCTION 
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FUNCTION name (.A, If) RESULT (R) 
arg-type A,R 
INTEGER N 

SELECT CASE (N) 
CASE (0) 

R=i 
CASE (1) 
. R=A ; 
CASE (2) 

R=A*A 
CASE (3) 

R=A*A*A 
CASE DEFAULT 

R=A**N 
END SELECT 
RETURN 
END FUNCTION 
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